home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aah.d64 / cross1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  93 lines
  1. 1 REM(null)
  2. 5 REM(null)
  3. 8 POKE775,191
  4. 10 IFA=0THENA=1:LOAD"PICDRAW.SYS",8,1
  5. 30 FILE$="CROSS2"+CHR$(13)
  6. 40 LADDR=32768:NAME=40447
  7. 50 GOSUB 1000
  8. 60 REM:THIS PROGRAM IS IN THE PUBLIC
  9. 62 REM:DOMAIN. PLEASE SHARE IT WITH
  10. 64 REM:CHURCHES AND PRIVATE CHRISTIAN
  11. 66 REM:SCHOOLS.
  12. 100 SYS36867:REM LOADER
  13. 110 SYS36873:REM CLRRM
  14. 120 SYS36886:REM XHIRES
  15. 129 POKE53265,PEEK(53265)AND239
  16. 130 SYS36870:REM REDRAW
  17. 131 POKE53265,PEEK(53265)OR16
  18. 140 FORT=1TO6000:NEXT
  19. 200 SYS36883
  20. 201 PRINTCHR$(8):PRINTCHR$(142)
  21. 202 PRINT"[147][193][160][211][212][213][196][217][160][207][198][160][212][200][197][160][195][210][207][211][211][160][207][198][160][202][197][211][213][211][160][201][206][160][205][193][212][212][200][197][215]"
  22. 204 PRINT"           BY [211]TEVE [215]ILLIAMS"
  23. 205 READA$,B$,C$,D$,E$,F$,G$,H$,I$
  24. 206 IFA$="QZQZ"THEN700
  25. 207 PRINT"  [209]UESTION - "A$
  26. 208 PRINT""B$
  27. 210 PRINT""C$
  28. 212 PRINT""D$
  29. 214 PRINT" [211]CRIPTURE - "E$
  30. 216 PRINT"    [215]AS IT (A) "F$
  31. 217 PRINT" OR WAS IT (B) "G$
  32. 218 J$=""
  33. 219 POKE198,0
  34. 220 PRINT" ANSWER A OR B"
  35. 221 GETJ$:IFJ$=""THEN221
  36. 250 IFJ$=H$THEN300
  37. 252 IFJ$=I$THEN330
  38. 253 GOTO221
  39. 300 PRINT"   VERY GOOD - THAT IS CORRECT!"
  40. 303 CT=CT+1
  41. 304 FORT=1TO3000:NEXT
  42. 305 GOTO202
  43. 330 IFI$="A"THENK$="B"
  44. 332 IFI$="B"THENK$="A"
  45. 334 PRINT" SORRY - THE ANSWER WAS "K$
  46. 338 FORT=1TO4000:NEXT
  47. 340 GOTO202
  48. 400 DATA"[215]HO WAS ASKED TO","CARRY THE CROSS","OF [202]ESUS?",,"[205]ATTHEW 27:32"
  49. 402 DATA"[211]IMON OF [195]YRENE","A CENTURION SOLDIER","A","B"
  50. 404 DATA"[212]HEY TOOK HIM TO","[199]OLGOTHA WHICH MEANS","THE PLACE OF","A [164][164][164][164][164][164][164][164][164]."
  51. 406 DATA"[205]ATTHEW 27:33","HIGH HILL","SKULL","B","A"
  52. 408 DATA"[215]HAT POSSESSIONS OF","[202]ESUS WERE DIVIDED","BY THE SOLDIERS'"
  53. 410 DATA"CASTING LOTS?","[205]ATTHEW 27:35","HIS BOOKS","HIS GARMENTS","B","A"
  54. 412 DATA"[200]OW MANY ROBBERS","WERE CRUCIFIED NEXT","TO [202]ESUS?",,"[205]ATTHEW 27:38"
  55. 414 DATA"TWO","THREE","A","B"
  56. 416 DATA"[193] SIGN ON THE CROSS","ACCUSED [202]ESUS OF","BEING THE [164][164][164][164][164][164][164][164][164]"
  57. 418 DATA"OF THE [202]EWS.","[205]ATTHEW 27:37","KING","HIGH PRIEST","A","B"
  58. 420 DATA"[198]ROM THE SIXTH HOUR","WHAT COVERED THE","WHOLE TERRITORY?",
  59. 422 DATA"[205]ATTHEW 27:45","A LOCUST PLAGUE","DARKNESS","B","A"
  60. 424 DATA"[215]HEN [202]ESUS CRIED OUT,","'[197]LI,[197]LI, LAMA","SABACHTHANI,' SOME THOUGHT"
  61. 426 DATA"HE WAS CALLING FOR WHOM?","[205]ATTHEW 27:46","[197]LI","[197]LIJAH","B","A"
  62. 428 DATA"[215]HAT HAPPENED TO THE","CURTAIN OF THE","TEMPLE WHEN [202]ESUS DIED?",
  63. 430 DATA"[205]ATTHEW 27:51","IT WAS TORN","IT TURNED RED","A","B"
  64. 432 DATA"[215]HEN [202]ESUS DIED, WHAT","WERE OPENED SO","THAT PEOPLE COULD","COME OUT?"
  65. 434 DATA"[205]ATTHEW 27:52","PRISON CELLS","TOMBS","B","A"
  66. 436 DATA"[212]HE CENTURION WHO SAW","ALL OF THIS SAID,","'[212]RULY THIS WAS THE"
  67. 438 DATA"[164][164][164][164][164][164][164][164][164][164][164]'.","[205]ATTHEW 27:54","[203]ING OF THE [202]EWS","[211]ON OF [199]OD","B","A"
  68. 450 DATA"QZQZ",,,,,,,,,,
  69. 700 PRINT"[147]   YOUR SCORE WAS"CT"OUT OF 10."
  70. 702 PRINT"   DO YOU WANT TO REVIEW AGAIN? (Y/N)"
  71. 704 GETA$:IFA$=""THEN704
  72. 708 IFA$="Y"THEN714
  73. 710 IFA$="N"THEN730
  74. 712 GOTO704
  75. 714 CT=0
  76. 715 RESTORE
  77. 716 SYS36886:REM XHIRES
  78. 720 GOTO140
  79. 730 SYS36886:REM XHIRES
  80. 732 FORT=1TO4000:NEXT
  81. 740 POKE775,167
  82. 750 SYS 64738
  83. 760 STOP
  84. 1000 REM
  85. 1010 LH=INT(LADDR/256):LL=LADDR-(LH*256)
  86. 1020 POKE 36878,00:POKE 36879,158
  87. 1030 POKE 36880,LL:POKE 36881,LH
  88. 1040 REM
  89. 1050 FOR I=1 TO LEN(FILE$)
  90. 1060 C=ASC(MID$(FILE$,I,I)):POKE NAME+I,C
  91. 1070 NEXT I
  92. 1080 RETURN
  93.